home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollControl.cpt / ScrollControl XCMD / card_4570.txt < prev    next >
Text File  |  1989-04-22  |  965b  |  44 lines
  1. -- card: 4570 from stack: in
  2. -- bmap block id: 5287
  3. -- flags: 0000
  4. -- background id: 3516
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide msg
  9. end closeCard
  10.  
  11.  
  12.  
  13. -- part 2 (button)
  14. -- low flags: 00
  15. -- high flags: 8002
  16. -- rect: left=172 top=252 right=268 bottom=314
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 3
  21. -- text size: 9
  22. -- style flags: 0
  23. -- line height: 12
  24. -- part name: Try Me Out
  25. ----- HyperTalk script -----
  26. on mouseEnter
  27.   global curCtlValue
  28.   ScrollControl "1", "50", curCtlValue
  29.   set the loc of msg to 10,200
  30.   put curCtlValue
  31. end mouseEnter
  32.  
  33.  
  34. -- part contents for background part 1
  35. ----- text -----
  36.  
  37.  
  38. A typical script to invoke the XCMD would be as follows:
  39.  
  40.  on mouseEnter
  41.    ScrollControl "1", "50", "8"
  42.  end mouseEnter
  43.  
  44. Engage ScrollControl from a mouseEnter handler. Then comes the line of the XCMD which is stated as  ‚ÄúScrollControl‚Äù, followed by three parameters.